COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN REAL R
C00003 ENDMK
C⊗;
BEGIN REAL R;
STRING S; INTEGER I;
SETFORMAT(0,4);
WHILE TRUE
  DO BEGIN
     OUTSTR("INPUT A VALUE PLEASE");
     S←INCHWL;
     R←REALSCAN(S,I);
	S←CVF(R);
IF S[2 FOR 1]="." THEN S←S[1 FOR 1]&"0"&S[2 TO ∞];
     OUTSTR("THE VALUE IS *"&S&"*");
     END;
END;